Workplace Effectiveness: Critical Thinking Skills/Workplace Effectiveness: Critical Thinking Skills.iso/pc/Files/Patterns.dxr/00017_Push Button, Do Action on MouseDown.ls

Text File | 1998-09-16 | 2.0 KB | 57 lines

property UpCM, DownCM, UpNum, DownNum, theAction, button_active

on mouseDown me
  set the member of sprite the spriteNum of me to member the DownCM of me
  set the button_active of me to 1
end

on mouseUp me
  set the member of sprite the spriteNum of me to member the UpCM of me
  set the button_active of me to 0
  do(theAction)
end

on mouseEnter me
  if the button_active of me then
    set the member of sprite the spriteNum of me to member the DownCM of me
  end if
end

on mouseLeave me
  if the button_active of me then
    set the member of sprite the spriteNum of me to member the UpCM of me
  end if
end

on mouseUpOutSide me
  set the button_active of me to 0
end

on beginSprite me
  set the UpCM of me to the member of sprite the spriteNum of me
  set the UpNum of me to the number of member UpCM
  set the DownNum of me to the number of member DownCM
  set the button_active of me to 0
end

on endSprite me
end

on getPropertyDescriptionList
  if the currentSpriteNum = 0 then
    set memdefault to 0
  else
    set memref to the member of sprite the currentSpriteNum
    set castLibNum to the castLibNum of memref
    set memdefault to member (the memberNum of member memref + 1) of castLib castLibNum
  end if
  set p_list to [:]
  addProp(p_list, #DownCM, [#comment: "Hilite Image:", #format: #graphic, #default: memdefault])
  addProp(p_list, #theAction, [#comment: "the Action:", #format: #string, #default: EMPTY])
  return p_list
end

on getBehaviorDescription
  return "Makes a sprite work as a pushbutton with automatic highlighting and mouse tracking. The sprite's initial castmember represents the button's normal state." & RETURN & "This behavior also has a STRING attached to it, that does some Action on MouseUp if the mouse is in the rollover." & RETURN & "PARAMETERS:" & RETURN & "• Hilite Image - Choose the cast member to display when the button is pressed. The default value is the cast member immedietly following the sprite's current cast member." & RETURN & "• Script - Enter a script for when the button is pressed. The default value is empty"
end